home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
91xx
/
9111b.d64
/
demo m&t 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
36 lines
1 REM LASER - DEMO- UND STEUER-PROGRAMM
2 REM VON NIKOLAUS HEUSLER 8.91
3 REM ZWENGAUERWEG 18, 8000 MUENCHEN 71
4 :
10 IFPEEK(49155)<>3THENLOAD"LASER.CODE",8,8
20 SYS49152:SP=8
30 PRINT"[147]LASER-STEUER- UND DEMOPROGRAMM M&T/NH
40 [153]"TASTEN: + WAIT / - WAIT ..... VERZOEGERUNG
42 PRINT" S [146] ........... PROGRAMM-PAUSE
43 [153]" W WAIT ........... WEITER
44 PRINT" X [146] ........... ENDE
90 [137]900
230 [151]6,BR:[151]2,1:[151]3,1:[151]4,M1:[151]5,M2:[142]
800 [139]PP[178]1[167]810
802 PP[178]1:[153]""[163]22)"(PAUSE)":[142]
810 PP[178]0:[153]""[163]22)" ":[142]
900 [140]:[129]DK[178]1[164]15
902 [135]M1,M2,BR:[141]230
904 [129]DI[178]1[164]SP[172]8
906 [153]" VERZOEGERUNG:"SP"CMD "
907 [153]" SCHRITT:"DK"CMD "
908 [161]A$:[151]198,.
910 [139]A$[178]"+"[167]SP[178]SP[170]1:[139]SP[177]40[167]SP[178]40
912 [139]A$[178]"-"[167]SP[178]SP[171]1:[139]SP[179]0[167]SP[178]0
913 [139]A$[178]"+"[176]A$[178]"-"[167]926
914 [139]A$[178]"X"[167][158]49152:[158]65418:[151]56325,64:[158]65409:[128]
916 [139]A$[178]"W"[167]926
918 [139]A$[178]"S"[167][141]800
920 [139]PP[167]DI[178]1
924 [130]DI
926 [130]DK:[137]900
950 [131]70,59,76,246,31,235,209,216,5,129,61,33
952 [131]48,252,150,94,152,53,243,116,248,30,94,195
954 [131]221,49,38,212,80,88,10,200,86,145,44,70,17,116,220
956 [131]15,117,232,160,100,60